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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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RRR = RRR 
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RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
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PPPPPPPP AAAAAA SSSSSSS$ SSSSSSSS IIIII1 GGGGGGGG NN NN AAAAAA LL 

PPPPPPPP AAAAAA SSSSSSSS SSSSSSSS IIII11 GGGGGGGG NN NN AMAAAA LL 

PP PP AA AA SS SS II G NN NN AA AA LL 

PP PP AA AA SS SS II GG NN NN AA AA LL 

PP PP AA AA SS SS I] GG NNNN NN AA AA LL 

PP PP AA AA SS SS I] GG NNNN NN AA AA LL 

PPPPPPPP Ag AL SSSSSS SSSSSS II GG NN NN NN AA AA LL 

PPPPPPPP Ab AA SSSSSS SSSSSS Il GG NN NN NN AA AA LL 

PP AAAAAAAAAA SS SS II GG GGGGGG NN NNNN AAAAAAAAAA LL 

PP AAAAAAAAAA SS SS II GG GGGGGG NN NNNN AAAAAAAAAA LL 

PP BA Ab SS SS II GG GG NN NN AA AA LL cece 
PP AA AA SS SS II GG GG NN NN AA AA LL cece 
PP AA AA SSSSSSSS SSSSSSSS IIII11 GGGGGG NN NN AA AA LLLLLLLLLL eee 
PP AA AA SSSSSSSS SSSSSSSS III GGGGGG NN NN AA AA LLLLLLLLLL eee 
LL IIIII1 SSSSSSSS 

LL III! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I! SSSSSS 

LL I] SSSSSS 

LL I] 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL W111] SSSSSSSS 
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MODULE PASSS$SIGNAL ( gaye npional 1/0 errors' 
IDENT 1-001' ! File: PASSIGNAL.B32 Edit: 


BEGIN 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED_UNDER A LICENSE AND MAY BE USED AND ser aee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH iat SE__AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT ARE OR ANY OTHER 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
fanieecente NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


O CHANGE WITHOUT NOTICE 


CT T 
ITMENT BY DIGITAL EQUIPMENT 


LR RARER ERE EERE EERE REAR AEE RE REEEEEEEEETEEEEEEEEEARAEARAAEETEARAeA Eee 
' 


'+¢ 
FACILITY: Pascal Language Support 
! ABSTRACT: 


This module contains procedures which are called by the 
VAX-11 Pascal Run-Time Library to signal error conditions. 


i ENVIRONMENT : User mode - AST reentrant 

! AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
| MODIFIED BY: 

_1-001 - Original. SBL 1-April-1981 
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eA SSSIGNAL 


Se Se Se Se Se Se Be Se Se Be Be Oe we Be BHO Se oe Se Se Se Se Se Be ee Se SESH HE Se BH Se ae SHOES Se Ss as 


BDA DAASSSVISISIST ££ 
WR ODOONOUSWN-OOMW 


AO 
ws ¢ 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
PASSS$SIGNAL: CALL_SIGNAL NOVALUE, ' 
PASSSBUGCHECK: NOVALUE; ' 


mn 
oe 
ou 


nals I/O error 
nals PAS$_BUGCHECK 
! 


MACROS: 


4 
Macros to read and write longwords that use autoincrementing. 


CRO 
WLONGZA (sre.dst) = (dste.detsa; (cdst-a5<0,823¢sre) 2; 
EQUATED SYMBOLS: 
NONE 
FIELDS: 
NONE 
OWN STORAGE: 
NONE 


OD tt et et el el a el a a et ed ed ad ot to mB OOOOOO OH 


lolelelejlejlelelelelelalelelelelelelelelelelalelelelelelelelelalelalelelalelolo ME =i") 
BEEBE EEE & BWANA NONNPINI NY 2 2 SS SUN WIE EE OW 
DNAOULSWN $9 OONAUES WN O OONOUSW—OOONONM—OOOnN -—3 


ot 2 a a 2 a — 4 = = a a a 2 2 ss as ) 4 1 


dD 2 
ignal I/0 errors 16-Sep-1984 02:08:14 AX-11 Bliss-32 V4.0-74 Page 2 
arations 1o-808- 1382 95:98:18 PASRTL. RCIPASSIGNAL .3 2;1 . (2) 
XSBTTL ‘Declarations’ 
; PROLOGUE DEFINITIONS: 
REQUIRE 'RTLIN:PASPROLOG'; ! Linkages, externals, PSECTs, structures 


tn 


3 | 
PASS$SIGNAL nal 1/0 errors 1-se =1984 02:08:14 AX=11 Bliss-32 V4.0-74 Page 3 PAS 
4-001 SS$SIGNAL = Signal PASS$_ERRACCFIL 12-88-13 05:88: PASRTL. SRCIPASSIGNAL .B 2;1 . (3) 1-0 

88 ZSBTTL etter aack - Signal PASS_ERRACCFIL" 
89 GLOBAL ROUTINE PASSS$SIGNAL ( ! Signal I/0 error 
90 PFV: VOLATILE REF SPASSPFV_FILE_VARIABLE ! File variable 
91 MESSAGES: VECTOR C, LONG] : Messages to signal 
36 ) : CALL SIGNAL NOVALUE = 
94 le+ 
+4 FUNCTIONAL DESCRIPTION: 
97 This procedure is called by the Run-Time Library when it wishes 
98 to signal an error during a Pascal 1/0 operation. It adds 

to the message the file ‘variable’ name, filename, and 

RMS statuses, if any. 

' CALLING SEQUENCE: 
CALL PASSSSIGNAL (PFV.mr.r 
MESSA 
is MESSAGE2.rlc.v, FAOCNT2.rl.v is FAOARGS.rz.z...JJ) 
FORMAL PARAMETERS: 
PFV - The Pascal File Variable (PFV) passed in R6. 
The structure of the PFV is defined in PASPFV.REQ. 
MESSAGE1 - The first message which gives more detail about the 


error. This may be one of the PASSK_xxx symbols _ 
which correspond to a PAS$_xxx 1/0 error_message, in 
which case it is expanded into the full 32-bit form. 


FAOCNT1 - The count of FAO arguments for MESSAGE1, if not zero. 
If pore. the RMS STS and STV are taken from the RAB 
or ‘ 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 

FCBSL_STATUS is set to the STATUS number of the error, unless 


there is no FCB, in which case the STATUS number is stored 
in PFV CPFVSL_STATUSJ; 


PWN (0 OONOUEWN SO OODNOUEWN (OO ODNOAUE WN SO OONOUES WN OO” 


El.rw.v C,ARGCNT1.rl.v C,FAOARGS.rz.z...J] 


SIGNALLED ERRORS: 


PROPMIAPONOINORY — nt a a tO tt Ot SO Hh SS I Os 
DOOOCOCOOOO OOOO OO OW 00 00 00 00 09 09 09 09 SI SIN SII SOA AA AAA AAA MMMM 
MEAN 0 OCONEE WN 9 OD NOAU EWN O OONAUE WN OO OONOAOUE WN OC OONAOUSWN—OO 
a a Dd ed dd ed dd dd dd 


Be Se Oe Be Be Oe Be Be Be Be Se Be Be Be Se He Se Se Be Ge Oe oe SH Be Oe Oe BH ase oe Se Be BH Se Oe OFS Oe we Oe BH SHS Se Oe Oe Oe Oe BES OO Ose Oe ee ae eH es 


i 
i 
i 
i 
i 
i 
! 
i 
' 
! 
! 
i 
i 
! 
i 
i 
i 
i 
i 
! 
i 
i 
i 
FAOARG1 - The first FAO argument for MESSAGE1, if any, etc. 
} 
1 
i 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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; ROUTINE VALUE: 
: NONE 

Z SIDE EFFECTS: 
4 NONE 

4 

4 

4 


0 


nal 1/0 errors -1984 02:08:14 AX-11 Bliss-32 V4.0-74 
eS$SIGNAL = Signal PAS$_ERRACCFIL aati 05:08:04 PASRTL SRE APACS YCHaL 68251 
! 


Message indicated by caller 


BEGIN 
CAL 
PFD: REF SPAS$°FD FILE_DESCRIPTOR, ! Pascal File Descriptor 
MSG_PTR: REF VECTOR C,~LONGJ, i Pointer to MESSAGE LIST 
ARG_PTR: REF VECTOR LONG] ' Pointer to argument List 
FILENAME _DSC: BLOCK C&, BYTEs, i Filename descriptor 
MESSAGE_CIST: VECTOR (20); i Argument List to LIBSSIGNAL 


BIND 
PRIMARY _MESSAGE = MESSAGE_LIST [1]: BLOCK (4, BYTE]; 


rorvrernororeropnoreorerorerrornrn Po 


NN 2 1 OOOO 


M—OOODNOAUES WN O OODNO UE WN ( O OONOAOU EWN $0 OONOAUESWN (OVO ANOUSWI "OOOO 


UILTIN 
ACTUALCOUNT, 
CALLG; 


PAEAEQAPREAPEQA MANNII 


EXTERNAL ROUTINE 
LIBSSIGNAL; ' Can't use SIGNAL here 


ww ele lololololelelolololeolololololol~ mmm) 4) 
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PRED BB BB BE EE BE EWAN NI npn nononory) 


‘4 
: Expand the first message from the PAS$K_value to the PAS$_ value if 
necessary. Store the primary message in the message List. 


aca: CO] LEQU 65535 ! Less than a word? 


BEGIN 
PRIMARY _MESSAGE 
PRIMARY MESSAGE 


ELSE 
PRIMARY _MESSAGE 


PASS _BASE; ! Get base message 
-PRIMARY_MESSAGE + (.MESSAGES [0]*3); ! Insert message number 


«MESSAGES (0); ! Get full message 


'+ 

: Determine the number of signal arguments. If we have more than one 

! argument, the second argument is the count of additional FAO arguments 

: for the first message. Add two for possible RMS messages, plus the three 
implicit arguments for the first message. 


WR BOOS MOWER UINI ODO Wr HON > DOO arn edn OOOO wenn 


IF ACTUALCOUNT () GTRU 1 
THEN 
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1 
2 MESSAGE_LIST (0) = ACTUALCOUNT () + 3; ! Total signal args 
3 MESSAGE_LIST C2] = 3 + .MESSAGES f ; |! FAO count for primary message 
6 MESSAGE_LIST (3) = PFV CPFVSR_PFV); ! PFV address goes here 
5 ARG_PTR™= MESSAGES [2]; ! Start of secondary arguments 
38 : MSG_PTR = MESSAGE_LIST (4); ! Next place in MESSAGE_LIST 
98 02 '¢ 
306 aS Move extra FAO arguments for primary message, if any. 
01 02 


peoeeicntineiccomnncaicnyetani 
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PASS$SIGNAL Signal 1/0 errors 1-56 1984 02:08:14 AX-11 Bliss-32 V4.0-74 Page 
1-001 PASSSSIGNAL = Signal PAS$_ERRACCFIL 14-Sep-19 4 95:9 756 EPASRTL-SRe PASSIGNAL .B52;1 ( 
H o¢ 8 63 DECR I FROM (.MESSAGE_LIST [2] = 3) TO 1 DO : 

; 2 64 WLONG_A (RLONG_A TARG_PTR), MSG_PTR); ! Copy an item 

; 204 0265 END 

; 205 0266 ELSE 

; 206 0267 BEGIN 

; 20r 0268 MESSAGE _LIST = 3 ! Total signal args 

; 208 0269 MESSAGE _LIST = 3; ' FAO count for primary message 
; 209 0270 MESSAGE_LIST = PFy fPfvSR_PFVI; i PFV address goes here 

3 10 0271 MSG_PTR = MESSAGE_LIST (4]; ! Next place in MESSAGE_LIST 
; 211 0 Lf; § END; 

3 sig 027 

: $1 bsoe + 

> 214 0275 : Get PFD address. Take care that we have the ‘‘absolute’’ address and 

s 21S 0276 ! mot the relative displacement! 

; 216 0277 : te 

3s ev 0278 

; ew 0279 2 IF .PFV CPFV$V_RELPFDJ ! Is it relative? 

; 219 0280 ¢ THEN 

; 220 0281 BEGIN 

3 6¢el 304 3 + 

; 222 0283 3 ! The PFD pointer in the PFV was self-relative when we 

3 ¢eo 0284 H ! started = but it might not be now. Fetch it, then test 

: 224 0285 ! again. If RELPFD is still clear, then what we have really 

s 2eo 0286 3 ! is an offset. If it is now set, get the now-absolute address 

: 226 0287 3 ! from the PFV. 

b ger 0288 3 le 

: 228 0289 3 

> ¢e 0290 3 PFD = .PFV CPFVSA_PFD) + .PFV; ! Resolve address. 

: 230 0291 3 IF .PFV CPFV$V_RECPFD)] ! Was it set in the meantime? 

: gol 0292 3 THEN 

3; €se 0293 3 PFD = .PFV CPFVSA_PFD]; 

; 233 0294 3 END 

; 234 0295 2 ELSE 

s gee 0296 2 PFD = .PFV CPFVS$A_PFD]; ! Get absolute address 

; 2 0297 2 

s go 0298 2 '¢ 

; 238 0299 2 ! File variable name is in PFD. If mame has zero length, substitute a 

; 239 0300 2 ' dummy name. 

; 240 0301 2 te 

; 241 0302 2 

; 242 0303 2 IF .PFD CPFD$T_NAME] GTRU 0 ! Name specified? 

; sti 0304 ¢ THEN 

: 264 0305 WLONG_A (PFD CPFDST_NAME], MSG_PTR) ' Counted string 

; 245 0306 § ELSE 

: 246 0307 WLONG_A (UPLIT BYTE (ZCHARCOUNT('=unnamed-'), ‘-unnamed-'), MSG_PTR); 
; 247 0308 2 

; 248 0309 2 '¢ ; 

; 249 0310 2 ! See if we have a filename. If so, add it to the message. 

: 250 0311 2 ! At the same time, store the error number in the FCB. 

; 6251 O3i6 2 !e 

; $26 0313 2 nhe: 4 

3 53 0314 2 FILENAME_DSC CDSC$W_LENGTH] = 0; ! Initially, no filename 

; $2¢ O31? WLONG_A TFILENAME_DSC, MSG_PTR); ! Address of descriptor 

; $e 0819 IF .PFV CPFV$V_FCB_VALID) 

3 $27 0318 THEN 

; 258 0319 BEGIN 


5 
3) 
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; 259 0320 

; 366 0321 ree: aH eraeee B_CONTROL_BLOCK, ' File control block 

+4 61 0 ¢ REF B ° pte ' RMS FAB 

: se 8 i NAR: REF BLOCK » BYTE ' RMS NAM 

H 264 8 5 BIND 

; $e2 037 RAB = FCB: REF BLOCK C, BYTE]; ' RMS RAB 

: 267 0328 FCB = .PFV CPFVSA_FCB); ! Get FCB address 

; 268 0329 3 

: 269 0330 3 If NOT .FCB CFCBSV_STRING] 

s e270 83 } - THEN 

; 271 0 ¢ 4 Pap 

3 $i 033 4 FAB = ab “eet L_FABI; ' Get FAB address 

s 27 0334 4 NAM = FABSL-NAM); ' Get NAM address 

: 274 0335 4 IF .NAM af THAMSE RSC] GTRU 0 ! Do we have an RSN? 

: 275 0336 4 THEN 

; 276 0337 5 BEGIN 

s ett 0338 5 FILENAME_DSC CDOSCS$W_LENGTH] = .NAM CNAMS$B_RSLJ; 

: 278 0339 § FILENAME_DSC CDSC$A~POINTER] = .NAM CNAMSC_RSAJ; 

s 2g 0340 5 END 

: 280 0341 4 ELSE IF .NAM CNAM$B_ESL] GTRU 0 ' Do we have an ESN? 

: 281 bak 4 THEN 

: 282 0343 5 BEGIN 

3 28s 0344 5§ FILENAME_DSC COSCSW_LENGTH] = .NAM CNAM$B_ESL]; 

; 284 0345 5 FILENAME “DSC COSCSA_ POINTER] = .NAM CNAMSC ESA); 

> 285 0346 5 END 

; 286 0347 4 ELSE IF .FAB CFABSB_FNS] GTRU 0 ! Do we have a filename? 

: 287 0348 4 THEN 

: 288 0349 5 BEGIN 

; 289 0350 5 FILENAME _DSC pSceanp LENGTH] = .FAB CFAB$B_FNS]; 

; 290 0351 5 FILENAME-DSC CDSC$A-POINTER] = .FAB CFABSC_FNAJ; 

: 291 O326 4 END; 

: 292 0353 3 END; 

; 295 0354 3 

: 294 0355 3 + 

s eve 0356 3 i If we have neither an RSN or a filename, we'll use a null string 

: 296 0357 3 ' by default. 

: 297 0358 3 ie 

: 298 0359 3 

; 299 0360 3 '¢ : ; 

; 00 0361 3 ' Store error number in FCB so that STATUS can return it. 

3 en 9308 ; te 

3 Hy b3ea FCB CFCBSL_STATUS] = .PRIMARY_MESSAGE CSTS$V_CODE] - PASS$$K_MSGV2L0; 

3; 304 0365 3 END 

: 305 0366 2 ELSE 

: 306 0367 2 

; 305 te § . ‘ine error number in PFV. 

H 94 B59 PFY CPFV$L_STATUS] = .PRIMARY_MESSAGE CSTS$V_CODE] - PASS$K_MSGV2L0; 

ante $378 ine neined be signalled h 

: ! any chained messages are to be signalled, copy them. 

Pio is oe : 

s 315 0376 IF ACTUALCOUNT () GTRU 1 ! Any chained messages at all? 


“ er p-1984 0g: 08:16 
AL - "Signal PAS$_ERRACCFIL p-1984 12:51:56 PASRT 8S CSPASSIGNAL. B32;1 
THEN 

BEGIN 

neg OIE: CO] = (.MESSAGE_LIST C2] + 2)) GTR O 


DECR I FROM (.MESSAGE LIST [0] - Fa 3 LIST C2] + 2)) 10 1 DO 
_ WLONG_A (RLONG_A A TARG_PTR), MSG_ PTR 


ELSE 
i "it there's an error in the FAB or RAB, copy that error to the message. 
iF -PFV CPFVS$V_FCB_VALID) 

THEN 
BEGIN 
LO 


CAL 
F cB: REF SPASS$SFCB_ Cowra. BLOCK, 
FAB: REF BLOCK [, BYTE); 


IND 
RAB = FCB: REF BLOCK C, BYTE]; 


FCB = .PFV CPFV$A_FCBI; 
Le -FCB CFCBSU_STRING) 


vo 
“en 


IGN 


MO OONAW FW" O OONAUE WN OOONO 
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o 
wn 


i Our callers assume that ever return, so signal_stop the special 

' condition code PAS$ CONTINUE. This tells the appropriate incarnation 
' of PAS$SIO_HANDLER fo unwind to the caller of its establisher, 

i ; et fectively dismissing the error. 


o 


i BEGIN 
4 FA AB CRABSL_FAB] 

0402 IF oT’ wre CRABSC_ STS4 AND (.RAB CRABSL _STSJ NEQ 0) 

0403 THEN 
43 0404 BEGIN 
344 WLONG_ A (.RAB CRABSL_STS), mSG_ PTR): 
345 0406 WLONG-A (.RAB CRABS$L~STV). 
346 0407 MESSAGE _ LIST CO] = .MESSAGE mest tO + 2; 
348 409 ELSE IF NOT .FAB CFABSL_STS] AND (.FAB CFABSL_STS] NEQ 0) 
349 10 THEN 
350 11 BEGIN 
351 0412 WLONG_A (.FAB CFABSL_STS], MSG_ PIR): 
352 0413 WLONG-A (.FAB CFABSL~STV]. MSG-P 
353 14 MESSAGE_LIST CO] = .MESSAGE_LIST Oj + 2; 
354 15 END; 
355 16 END: 
356 17 END; 
357 18 
$e6 1? CALLG (MESSAGE_LIST, LIBSSIGNAL); ! Do the signal 
320 042 ‘+ 
36 bes i We can only return here A . user handler has returned SS$_CONTINUE. 

2 
2 


SSeyey 
SAS 


o 


SIGNAL_STOP (PAS$_CONTINUE,1,PFV CPFVSR_PFVJ); 
RETURN; ' If handler continues 
END; ' End of routine PAS$$SIGNAL 


oO 
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«TITLE PASS$SIGNAL Signal 1/0 errors 
IDENT \1-001\ 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


9 
eASCII \-unnamed-\ 


~EXTRN PASSS$SIGNAL, A wert) eee 
-EXTRN LIBSSIGNAL, P S 
EXTRN PASS$S$K oMSGU2LO. PAS$_CONTINUE 


2D 64 65 6D 61 6E 6E 75 


003¢ 00000 ENTRY PASSSSIGNAL , Save R2,R3,R4,R5 
SE AB AE 9E 00002 MOVAB B(SP 
50 04 AC DO 00006 MOVL MESSAGES RO 
QOOOFFFF 8F 50 D1 O000A CMPL 
10 1A 00011 BGTRU 
04 AE 000000006 8F 00 00013 MOVL $#PAS$_BASE, PRIMARY_MESSAGE 
06 «AE 04 BE4O 7E 0001B MOVAQ @PRIMARY_MESSAGELCROJ, PRIMARY_MESSAGE 
04 11 00021 BRB 2$ 
04 AE 50 DO 00023 1$ MOVL RO, PRIMARY_MESSAGE 
51 10 AE 9E 00027 2$ MOVAB MESSAGE LIST+16, MSG_PTR 
01 6C 91 00028 CMPB (AP), #T 
23 1B O002E BLEQU 
6E 6C 9A 00030 MOVZBL (AP), MESSAGE_LIST 
6E 03 CO 00033 ADDL #3, MESSAGE _LTS 
08 AE 08 AC 03 C1 00036 ADDL #3, MESSAGES+4 MESSAGE _LIST+8 
OC AE 56 00 0003C MOVL  PFV, Whe SeAGe List 
54 0c AC 4 00040 MOVAB MESSAGES+8, ARG PT 
50 08 AE 02 C3 00044 SUBL 3 We, MESSAGE_LIST+8, 1 
03 11 00049 BRB 4$ 
81 84 DO 00048 3$: MOVL (ARG_PTR)+, (MSG_PTR)+ 
FA 50 F5 0004E 4$: SOBGTR 3 
0B 11 00051 BRB 
6E 05 DO 00053 S$: MOVL es, MESSAGE _LIST 
08 AE 03 pO 00056 MOVL #3, MESSAGE “Listes 
OC AE 56 DO 0005A MOVL PFV, MESSAGE LIST+12 
OA 07 «AG 04 €1 9005 6$: BBC #4, 7(PFV), 7$ 
50 56 08 A6 C1 0006 ADDL3 8(PFV), PFV, PFD 
04 07 «=A 04 €1 00068 BBC #4, 7(PFV), 
50 08 A6 DO 0006D 7$ MOVL 8 (PFV), PFD 
Oc ad 93 90071 8$ TSTB —s_: 12 (PF DS 
06 13 00074 BEQL 46=s«O9$ 
81 0c AO 9E 00076 MOVAB 12(PFD), (MSG_PTR)+ 
05 11 OO07A BRB 10$ 
be FF76 CF 9€ O007C MOVAB P.AAA, (MSG_PTR)+ 
50 «AE B4 00081 10$ CLRW FILENAME_DSC 
81 50 AE E 00084 OVAB FILENAME DSC, (MSG_PTR)+ 
04 AE 0c 0 EF 00088 EXTZV #3, #12 APRIBARY -ESSAGE , R5 
55 000000006 8F Ce OO8E SUBL2 #PAS$$K’MSGV2L 
48 07 Ag 06 €E 009 BBC as 7(PFV) he 
5 0c Ab DO OO09A MOVL 12(PFV), FCB 
39 FE AB 04 £0 0095 BBS #4, -2(FCB), 13$ 
52 3c ~=6A3—s«@ «OOOA MOVL 60(FCB), FAB 
50 28 A2 00 000A7 MOVL 40(FAB). NAM 
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PASSSSIGNAL signet 1/0 errors 18-Sep-1984 0 08:15 AX=-11 a V4.0-74 Page 1 
1-001 PASSSBUGCHECK = Signal PAS$_BUGCHECK 14-Sep-1984 12:51:56 PASRTL.SRCJPASSIGNAL.B32;1 (4). 


: 7 04 $ 1 ZSBTTL "PASS$SBUGCHECK - Signet PAS$_BUGCHECK’ 

: 7 04 1 GLOBAL ROUTINE PASSSBUGCHECK ( 

; 378 8 = 

s Sry 439 1 ) : NOVALUE = 

; 380 0440 1 

>; 381 0441 1 !4¢ 

: 386 Bee : FUNCTIONAL DESCRIPTION: 

; 384 0444 1! This procedure is called by the Run-Time Library when it wishes 

; 385 0445 1! to indicate an internal consistency check failure. It signals __ 
; $09 rk : PAS$_BUGCHECK, internal consistency error <nnn> in Pascal Run-Time Library. 
; 385 0446 1 | CALLING SEQUENCE: 

; 389 0449 1! 
; 390 0450 1! CALL PASS$S$BUGCHECK (CODE.rlu.v) | 
; 0451 1! 
: $ Be 28 : FORMAL PARAMETERS: 

: 394 0454 1! CODE A longword integer denoting the particular error 

; 395 0455 1! being reported. This is to help locate the problem 

; 396 0456 1! from SPR reports. The code is generated by the 

3; eT 0457 1! SPASSBUGCHECK macro. 

; 398 0458 1! 
; 399 0459 1 ! IMPLICIT INPUTS: 
; 400 0460 1! | 
; 401 0461 1! NONE | 
: 402 Boos 1! 
; 403 0465 1 ! IMPLICIT OUTPUTS: 
> 404 0464 1 | | 
; 405 0465 : NONE | 
; ! ROUTINE VALUE: | 
; 1 | NONE | 
; i SIDE EFFECTS: | 
; 1 NONE | 
; | SIGNALLED ERRORS: | 
; 1 | PAS$_BUGCHECK | 
: it... 
: 1 

: BEGIN 

: SIGNAL_STOP (PAS$_BUGCHECK, 1, .CODE); ! Signal fatal error 

: § RETURN; ' Should never return here 

; 1 END; ! End of routine PAS$S$BUGCHECK 


.EXTRN PAS$_BUGCHECK 
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1-001 PA SSBUGCHECK = - "Signal PAS$_BUGCHECK 


431 490 1 END 
4 4 491 1 
4 0492 0 ELUDOM 
PSECT SUMMARY 
Name Bytes 
PASSCODE 367 NOVEC,NOWRT, RD 
Library Statistics 
wo------ Symbols 
File Total Loaded 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 15 
“$255$DUA28: CPASRTL .OBJJPASL1IB.L32;1 427 107 


COMMAND QUALIFIERS 


N sé 
19- o-13 4 AX-11 Bliss-32 V 
14- ep “19 zt 93; oF: PASRTL.SRC Passi HAL. 7382; :1 


! End of module PASS$$SIGNAL 


~-EXTRN LIBSSTOP 


Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


evesesee Pages Processing 
Percent Mapped ime 
0 581 00:01.0 
25 33 00:00.4 


FL ESS/EME CEOS FELD, FS TEAL. SPT IMLS ANOTAACEA, SEAL LSD 1PRES SONAL SER SHORE PRESTON, MSRC$:PASSIGNAL/UPDATE=(ENH$:PASSIGNAL 


Size: 357 code + 10 data bytes 
Run Time: 00:11.8 

Elapsed Time: 00:36.9 

Lines/CPU Min: 2499 
Lexemes/CPU-Min: 19961 

arom | Used: 170 pages 

Compilation Complete 
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